(x_set_title): Check data type of NAME.

diff --git a/src/xfns.c b/src/xfns.c
index 169a47e4b81a5ff25fe9d9c3e6fa4106156a6adc..2952da0787810ee96f5f0e6f6b1b55993937535b 100644 (file)
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -1877,6 +1877,8 @@ x_set_title (f, name)
 
   if (NILP (name))
     name = f->name;
+  else
+    CHECK_STRING (name, 0);
 
   if (FRAME_X_WINDOW (f))
     {